home *** CD-ROM | disk | FTP | other *** search
/ United States Naval Academy Annapolis, Maryland / United States Naval Academy - Annapolis, Maryland.iso / pc / navy data / modules / etcscrollbar.k < prev    next >
Text File  |  2000-11-09  |  786b  |  46 lines
  1. module oETCScrollbarPlugin is cPlugin
  2. has
  3.     release Editor:
  4.         GetIO()
  5.             do
  6.                 result := oIOETCScrollbarPlugin;
  7.             end;
  8.     end;
  9. with
  10.     Media is [
  11.         oVertical_ETC_ScrollBar
  12.     ];
  13. end;
  14.  
  15.  
  16. object oVertical_ETC_ScrollBar
  17. is
  18.     cScrollBar
  19. with
  20.     Identifier is "oVertical_ETC_ScrollBar";
  21.     URL is "./ETCVSB.PIC";
  22.     Mode is oTransparentMode; 
  23.     Red is 255; Green is 255; Blue is 255;
  24.     Direction is Vertical;
  25.     HiliteOffset is 20;
  26.     FirstArrowOffset is 0;
  27.     FirstArrowSize is 20;
  28.     BarOffset is 20;
  29.     BarSize is 580;
  30.     LastArrowOffset is 600;
  31.     LastArrowSize is 20;
  32.     ThumbOffset is 620;
  33.     ThumbSize is 20;
  34. end;
  35.  
  36. release Editor:
  37.  
  38. object oIOETCScrollbarPlugin is cIOPlugin
  39. with
  40.     MenuItems is [
  41.         cIOVerticalScrollbarMenuItem with Name is "ETC"; Value is oVertical_ETC_ScrollBar; end
  42.     ];
  43. end;
  44.  
  45. end; -- release Editor
  46.